function F=ConcentForce(F)
GetCommonData

nForce=size(Force,1);
for iF=1:nForce
    idx=Force{iF,1};
    D=Force{iF,2};
    A=Force{iF,3};
    switch D
        case 1
            loc=2*idx-1;
        case 2
            loc=2*idx;
    end
    F(loc)=F(loc)+A;
end